home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e021.dms / e021.adf / disney2.AMOS / disney2.amosSourceCode
AMOS Source Code  |  1978-01-25  |  3KB  |  117 lines
  1. Locate 0,10 : Centre "luckily you have a magic rubber."
  2. DISNEYLAND:
  3. DSCREEN=5 : DCOUNT1=1
  4. DREPEAT:
  5. Curs Off 
  6. If DCOUNT1=1
  7.    Load "toy1a.abk",5 : Unpack 5 To 0
  8.    Load "toy1b.abk",5 : Unpack 5 To 1 : Screen To Front 0
  9. End If 
  10. If DCOUNT1=2
  11.    Load "toy2a.abk",5 : Unpack 5 To 0
  12.    Load "toy2b.abk",5 : Unpack 5 To 1 : Screen To Front 0
  13. End If 
  14. If DCOUNT1=3
  15.    Load "toy3a.abk",5 : Unpack 5 To 0 : 
  16.    Load "toy3b.abk",5 : Unpack 5 To 1 : Screen To Front 0
  17. End If 
  18. Load "rubber.abk"
  19. Hide On 
  20. Curs Off 
  21. X Mouse=288 : Y Mouse=100
  22. Wait 100 : Locate 0,1 : Curs Off : Screen 0 : Centre "Clear up the picture then press a  key." : Curs Off 
  23. Limit Mouse 120,40 To 448,300
  24. RUBBER:
  25. Do 
  26. Q=X Mouse-128 : W=Y Mouse-42
  27. Screen Copy 1,Q,W,Q+16,W+16 To 0,Q,W
  28. Exit If Inkey$<>""
  29. Exit If Mouse Key>0
  30. Sprite 8,X Mouse,Y Mouse,8
  31. Loop 
  32. Rem     *****************Screen Copy 0 To 2
  33. Locate 0,1 : Curs Off : Centre "  Please wait While testing.  "
  34. TEST1:
  35. DX=0 : DY=0
  36. Global DX,DY
  37. Do 
  38. C=Point(DX,DY)
  39. Global C
  40. Exit If C>15
  41. DX=DX+4 : If DX>320 Then Locate 32,1 : Print DY/4 : DX=0 : DY=DY+4
  42. Exit If DY>256
  43. Loop 
  44. If C>15 Then Goto FAILED
  45. Bell : Locate 2,1 : Print "                               "
  46. Wait 50 : Locate 0,1 : Centre "The picture has been cleaned."
  47. Screen Copy 1 To 0
  48. Flash Off 
  49. Sprite Off 
  50. Do 
  51. Exit If Mouse Key>0
  52. Exit If Inkey$<>""
  53. Loop 
  54. Bell 
  55. If DCOUNT1>2 Then Goto DFINISH
  56. Inc DSCREEN : Inc DSCREEN : Inc DCOUNT1
  57. Cls 
  58. Goto DREPEAT
  59. FAILED:
  60. Bell : Locate 2,1 : Curs Off : Print "                               "
  61. Flash C,"(ff0,10)(00f,10)(0f0,10)(0ff,10)"
  62. Wait 50 : Locate 0,1 : Curs Off : Centre "The picture is not clean yet."
  63. Clear Key 
  64. Goto RUBBER
  65. DFINISH:
  66. Cls 
  67. Wait 30
  68. Erase 1
  69. Locate 0,10 : Centre "Well Done ! !"
  70. Wait 50
  71. Locate 0,12 : Centre "You have saved Toy Land."
  72. PAUSE
  73. Clear Key 
  74. Screen To Front 0
  75. Load "message1.abk",5 : Load "message2.abk",6 : Unpack 5 To 0 : PAUSE : Unpack 6 To 1 : Screen Hide 1
  76. PAUSE: Clear Key : Screen Show 1 : Load "message3.abk",5 : Load "message4.abk",6 : PAUSE : Clear Key : Unpack 5 To 0
  77. PAUSE : Bell : Clear Key : Wait 40 : Unpack 6 To 1
  78. TTESTT:
  79. TTTT$=Input$(1)
  80. If TTTT$="y" Then Goto NNNN
  81. If TTTT$="Y" Then Goto NNNN
  82. If TTTT$="n" Then End 
  83. If TTTT$="N" Then End 
  84. Goto TTESTT
  85. NNNN:
  86. Cls : Wait 50
  87. Locate 0,14 : Centre "Teddy gives you a magic key"
  88. Locate 0,16 : Curs Off : Centre "and wishes you luck in the"
  89. Locate 0,18 : Centre "next part of your adventure."
  90. Do 
  91. Exit If Mouse Key>0
  92. Exit If Inkey$<>""
  93. Loop 
  94. DZOOM:
  95. Screen Close 1 : Erase 5 : Erase 1
  96. Cls : Ink 4 : Paint 100,100 : Show On 
  97. Run "2.amos"
  98. Shift Off 
  99. Screen Close 4 : Screen To Front 2 : Screen 2
  100. Flash C,"(FF0,10)(00F,10)"
  101. Do 
  102. Exit If Mouse Key=0
  103. Loop 
  104. Clear Key : 
  105. Goto RUBBER
  106. Procedure PAUSE
  107. Do 
  108. Exit If Mouse Key=0
  109. Loop 
  110. Do 
  111. Exit If Inkey$=""
  112. Loop 
  113. Do 
  114. Exit If Mouse Key>0
  115. Exit If Inkey$<>""
  116. Loop 
  117. End Proc